home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / visual / install next >
Text File  |  1996-05-19  |  2KB  |  107 lines
  1. ; $VER: Install Visual 1.00 (04-mar-1995)
  2. ; Vallée Christophe © 1995
  3.  
  4. (set DEVICE "Work:")
  5. (set DEFAULTDEVICE "Sys:")
  6. (set DISTDIR "Visual")
  7.  
  8. (welcome)
  9. (complete 0)
  10.  
  11. (set MAINDIR
  12.    (askdir
  13.       (prompt "Where do you want to install Visual (a directory will be "
  14.       "created in the directory you will choose) ?")
  15.       (help @askdir-help)
  16.       (default (if ((= (exists DEVICE (noreq)) 2)) (DEVICE) (DEFAULTDEVICE)))
  17.       (disk)
  18.     )
  19. )
  20. (if (= (exists MAINDIR) 0) (makedir MAINDIR (infos)))
  21.  
  22. (set DIR (tackon MAINDIR DISTDIR))
  23. (set @default-dest DIR)
  24.  
  25. (complete 20)
  26.  
  27. ; crée répertoire
  28.  
  29. (if (= (exists DIR) 2) (
  30.     (message "Directory '" DIR "' already exists. All the files of this "
  31.             "directory will be deleteted.")
  32.     (run ("delete \"%s\" all" DIR))
  33.     )
  34. )
  35. (makedir DIR (infos))
  36.  
  37. (complete 40)
  38.  
  39. ; installe
  40.  
  41. (copyfiles
  42.    (source "Visual")
  43.    (dest DIR))
  44. (copyfiles
  45.    (source "Visual.info")
  46.    (dest DIR))
  47. (copyfiles
  48.    (source "Visual.guide")
  49.    (dest DIR))
  50. (copyfiles
  51.    (source "Visual.guide.info")
  52.    (dest DIR))
  53. (copyfiles
  54.    (source "palette.visual")
  55.    (dest DIR))
  56.  
  57. (complete 60)
  58.  
  59. ; installe les fichiers icn
  60.  
  61. (set ICNDIR (tackon DIR "icn"))
  62. (makedir ICNDIR (infos))
  63.  
  64. (copyfiles
  65.    (source "icn")
  66.    (dest ICNDIR)
  67.    (pattern "#?"))
  68.  
  69. (complete 70)
  70.  
  71. ; installe les fichiers ARexx
  72.  
  73. (set REXXDIR (tackon DIR "rexx"))
  74. (makedir REXXDIR (infos))
  75.  
  76. (copyfiles
  77.    (source "rexx")
  78.    (dest REXXDIR)
  79.    (pattern "#?"))
  80.  
  81. (complete 80)
  82.  
  83. ; installe les fichiers divers
  84.  
  85. (set MISDIR (tackon DIR "misc"))
  86. (makedir MISDIR (infos))
  87.  
  88. (copyfiles
  89.    (source "misc")
  90.    (dest MISDIR)
  91.    (pattern "#?"))
  92.  
  93. (complete 90)
  94.  
  95. ; installe les fichiers exemples
  96.  
  97. (set EXEDIR (tackon DIR "examples"))
  98. (makedir EXEDIR (infos))
  99.  
  100. (copyfiles
  101.    (source "examples")
  102.    (dest EXEDIR)
  103.    (pattern "#?"))
  104.  
  105. (complete 100)
  106. (exit)
  107.